home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / demo i (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  112 lines
  1. 100 ifhthenpoke45,l:poke46,h:goto160
  2. 110 ifpeek(50000)=56andpeek(50001)=253then160
  3. 120 l=peek(45):h=peek(46)
  4. 140 load"scroll-machine",8,1
  5. 150 :
  6. 160 print"[147]":sys49152
  7. 170 ifusr(20000)<>229then:_ld"pseudo i"
  8. 180 ifusr(53248)<>4then:_ld"zeichensatz",53246
  9. 185 ifusr(57369)<>170then:_ld"sprites",57342
  10. 200 :
  11. 210 :
  12. 220 :
  13. 230 _rs:rem einstellungen loeschen
  14. 240 gosub1080:rem joysticksteuerung
  15. 245 _rz81,88,248:_su5
  16. 250 :
  17. 260 rem neue adresse der sprite pointers
  18. 270 sp=53240
  19. 280 :
  20. 290 js=56320:rem port 2
  21. 300 :
  22. 310 rem sprites vorbereiten
  23. 320 v=53248:pokev,172:pokev+1,150
  24. 330 pokev+2,173:pokev+3,161
  25. 340 pokev+28,3:pokev+39,14:pokev+38,6:pokev+37,1
  26. 350 pokev+40,8
  27. 360 pokev+23,0:pokev+29,0
  28. 370 co=v+31:rem sprite collission
  29. 380 s=128:rem sprites ab 128 = 57344
  30. 390 sh=3:rem anzahl der schiffe
  31. 400 e=200:rem anfangsenergie
  32. 410 :
  33. 420 rem soft-scroll-einstellungen
  34. 430 :
  35. 440 rem anfangsadresse,xausd.,yausd.
  36. 450 _mt20000,160,70
  37. 460 rem grenzen festlegen
  38. 470 _gm1:_gr0,8*160,0,8*50
  39. 480 rem register2:norm,norm,multicol.
  40. 490 _2r200,200,208
  41. 500 _hf0,10,0:rem hintergrundfarbe
  42. 510 poke53282,7:poke53283,8:_zf10
  43. 520 _us1:rem soft-scroll ein
  44. 530 _po50,0:rem position auf 50,0
  45. 540 _rf6,6,6:rem randfarbe
  46. 560 rem collission register loeschen
  47. 570 pokeco,0
  48. 580 pokesp,s:rem sprite aendern
  49. 590 s=s+1:ifs>132thens=128
  50. 600 rem randberuehrung
  51. 610 ifusr(0)then:_js2
  52. 620 e=e-1:gosub680
  53. 630 ife=0then720
  54. 640 f=f+1and1:pokev+21,1
  55. 650 if(peek(co)and1)then930
  56. 660 if(peek(js)and1)=0thenpokesp+1,144+f:pokev+21,3
  57. 670 goto580
  58. 680 print" schiffe:"sh"[157]  energie: "e"[157]  "
  59. 690 return
  60. 700 :
  61. 710 rem verlust eines schiffes
  62. 720 i=0:e=200:x=-8:pokev+21,1
  63. 730 sh=sh-1
  64. 740 gosub680
  65. 750 rem zerfall
  66. 760 fori=1to10:poke53280,1:next
  67. 770 fori=132toi+11
  68. 780 pokesp,i
  69. 790 fort=1to20:next
  70. 800 next
  71. 810 _po50,0
  72. 820 _js2:rem traegheit loeschen
  73. 830 ifsh=0then860
  74. 840 goto500
  75. 850 :
  76. 860 pokev+21,0:poke214,12:print
  77. 870 _us0:rem soft scroll aus
  78. 880 printtab(13)"game over !!!"
  79. 890 wait197,63:poke198,0
  80. 900 _us0:run
  81. 910 :
  82. 920 rem landen
  83. 930 ifusr(2)>330andusr(2)<334andusr(1)>441andusr(1)<469then950
  84. 940 goto720:rem keine landung
  85. 950 print" gelandet !"
  86. 960 e=200:gosub680
  87. 970 rem stoppen und joystick aus
  88. 980 _bw0,0:_js0
  89. 990 rem setzen auf y = 179
  90. 1000 _pousr(1),330
  91. 1010 rem joystick oben gedrueckt
  92. 1020 if(peek(js)and1)then1000
  93. 1030 :
  94. 1040 _bwbx,by
  95. 1050 _js2:gosub 1070:goto570
  96. 1060 rem 3 zeilen loeschen
  97. 1070 _fu 1024,1063+3*40,32:return
  98. 1080 print
  99. 1090 input"[147]bewegung (-127 bis 128) x,y0,1[157][157][157][157][157]";bx,by
  100. 1100 _bw bx,by
  101. 1110 print"joysticksteuerung :
  102. 1120 [133]"normale steuerung:0,0cmdcmdcmdcmdcmd";x,y
  103. 1130 _js 2,x,y:[143] 2 = traegheitsmode
  104. 1140 [153]"traegheitssteuerung:
  105. 1150 input"beschleunigung: (0-255) x,y16,16[157][157][157][157][157][157][157]";x,y
  106. 1160 _tb x,y
  107. 1170 input"grenzgeschw.: (0-32767) x,y5000,5000[157][157][157][157][157][157][157][157][157][157][157]";x,y
  108. 1180 _tg x,y
  109. 1190 input"reibung (0-255) x,y4,4[157][157][157][157][157]";x,y
  110. 1200 _tr x,y
  111. 1210 print"[147]":return
  112.